ert--explain-format-atom fix for non-characters

* lisp/emacs-lisp/ert.el (ert--explain-format-atom):
Don't try to print non-characters as characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 676878c69b6d312da7f1b795f440d1bf105f18ae..2a27f5b7f9d64b05a078d167703163ebea16f60b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-04  Glenn Morris  <rgm@gnu.org>
+
+       * emacs-lisp/ert.el (ert--explain-format-atom):
+       Don't try to print non-characters as characters.  (Bug#13543)
+
 2013-02-03  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-debug-message): Extend function exclude list.

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index dd8493622289952be819b95bb5c25a0f2ef5ddb3..7df3acccbc98fd6d1cac62763787bf36566e321d 100644 (file)
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -568,7 +568,8 @@ failed."
 (defun ert--explain-format-atom (x)
   "Format the atom X for `ert--explain-equal'."
   (cl-typecase x
-    (fixnum (list x (format "#x%x" x) (format "?%c" x)))
+    (character (list x (format "#x%x" x) (format "?%c" x)))
+    (fixnum (list x (format "#x%x" x)))
     (t x)))
 
 (defun ert--explain-equal-rec (a b)